﻿Imports Clases
Public Class frmPelisYSeries

    Private Sub frmPelisYSeries_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim peliculaOSerie As String
        If cargarPelis = True Then
            peliculaOSerie = "Peliculas"

            '
        Else
            peliculaOSerie = "Series"
            For Each Serie In listaSeries
                Dim btn As New Button
                grpPelisYSeries.Controls.Add(btn)
                btn.Location = New Point(10, 30)
                btn.Text = Serie.Nombre
                btn.Width = 200
            Next
        End If

    End Sub
End Class